home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
NEW
/
N-New Submissions
/
(n)n2.d64
/
countdown
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-24
|
1KB
|
63 lines
1 REM****COUNTDOWN BY RICK ANDING****
5 PRINT"[147]":FOR X=1 TO 800:NEXT
8 POKE 53280,6:POKE 646,15
10 PRINT"THIS PROGAM DISPLAYS A METHOD OF MAKING"
12 PRINT "A COUNTDOWN CLOCK.."
14 FOR T=1 TO 2500:NEXT
15 PRINT"[147]":FOR D=1 TO 1400:NEXT
16 PRINT "WHO IS BURIED IN GRANTS TOMB?"
17 PRINT: PRINT" A-GRANT":PRINT" B-WASHINGTON":PRINT" C-POPEYE"
18 PRINT: PRINT"YOU HAVE 10 SECONDS TO THINK...."
20 FOR X=1 TO 4000:NEXT:POKE 646,14
30 PRINT:PRINT:PRINT:PRINT:PRINT
32 PRINTTAB(12)"[213][196][196][196][196][196][196][196][196][196][196][196][201]"
33 PRINTTAB(12)"[199] [206][183][183][183][183][183][183][183][205] [200]"
40 PRINTTAB(12)"[199] [165][144] 10[154] [170] [200]"
42 PRINTTAB(12)"[199] [205][175][175][175][175][175][175][175][206] [200]"
44 PRINTTAB(12)"[202][198][198][198][198][198][198][198][198][198][198][198][203]";
50 GOSUB200
51 PRINT"[157][157][157][157][157][157][157][145][145] ";
52 FOR X=9 TO 1 STEP -1
53 PRINT "[157][157][157][144]";X;"[157][154] ";
54 GOSUB 200
60 NEXT X
65 PRINT"[157][157][144]0[154]";
68 PRINT"[145][145][145][145][157][158][209][154]"
69 FOR X=1 TO 1000:NEXT:PRINT:POKE 646,15
70 PRINT:PRINT:PRINT:PRINT:INPUT" ANSWER";A$
75 FOR X=1 TO 800:NEXT
80 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
82 FOR X=1 TO 800:NEXT
85 PRINT" DON'T TRY SO HARD!"
90 PRINT:PRINT:PRINT" THIS WAS JUST A DISPLAY..."
95 PRINT:PRINT:PRINT:PRINT" NOT A POP QUIZ!
96 [153]:[153]:[153]:[153]:[153]
100 [128]
200 [129] I[178]1480 [164] 1490
210 [151] I,81
220 [151] 54272[170]I,7
222 J[178]1
225 [151] I,32
230 [130]
240 [129] I[178]1530 [164] 1810 [169] 40
250 [151] I,81
260 [151] 54272[170]I,7
265 [151] I,32
270 [130]
300 [129] I[178]1809 [164] 1794 [169] [171]1
310 [151] I,81
320 [151] 54272[170]I,7
325 [151] I,32
330 [130]
340 [129] I[178]1754 [164] 1514 [169] [171]40
350 [151] I,81
360 [151] 54272[170]I,7
365 [151] I,32
370 [130]
380 [129] I[178]1474 [164] 1480
382 [151] I,81
384 [151] 54272[170]I,7
386 [151] I,32
388 [130]
390 [142]